Private Sub btnCalc_Click(ByVal sender As System.Object, ByVal e As _
              System.EventArgs) Handles btnCalc.Click
  Dim MyVariable As Integer  ' Zasig zmiennej MyVariable zaczyna si          
                             ' tutaj....
              ' ...cigle w zasigu...
  MyVariable = 10    ' ... cigle w zasigu...
              ' ... cigle w zasigu...
End Sub        ' Zasig MyVariable koczy si w tym miejscu ...poza zasigiem
